home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / joh_m.has < prev    next >
Text File  |  1998-08-28  |  8KB  |  379 lines
  1. *---------------------------------------
  2. *
  3. *    âWâçâôê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    joh_init
  14.     .xref    pcg_data
  15.     .xref    pal_data
  16.     .xref    adpcm_data
  17.  
  18.     .text
  19.     .even
  20. *---------------------------------------
  21. *    Åëè·ë╗
  22. *
  23. joh_init:
  24.     move.w    #6,C_H_X(a1)
  25.     move.w    #32,C_H_Y(a1)
  26.     move.w    #12,C_HD_X(a1)
  27.     move.w    #60,C_HD_Y(a1)
  28.     move.w    #40,C_MD_X1(a1)
  29.     move.w    #248,C_MD_X2(a1)
  30.     move.w    #48,C_MD_Y1(a1)
  31.     move.w    #240,C_MD_Y2(a1)
  32.     move.w    #8,C_SA_F(a1)
  33.     move.w    #9,C_SSA_F(a1)
  34.     move.l    #joh_motion,C_A_DT(a1)
  35.     move.l    #joh_display,C_PCG_D(a1)
  36.     move.l    #joh_move_data,C_JOY(a1)
  37.     move.l    #joh_attack_data,C_HIT_D(a1)
  38.     move.l    #joh_se_data,C_PCM_D(a1)
  39.  
  40.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  41.     movea.l    #pcg_data+JOH,a4
  42.     movea.l    a2,a6
  43.     move.w    #3008-1,d1
  44. @@:
  45.     move.l    (a4)+,(a2)+
  46.     dbra    d1,@b
  47.     adda.l    #15744,a6
  48.     move.w    #160-1,d1
  49. @@:
  50.     move.l    (a4)+,(a6)+
  51.     dbra    d1,@b
  52.  
  53.     move.w    C_COL(a1),d1
  54.     add.w    d1,d1
  55.     add.w    d1,d1
  56.     lea.l    joh_palette,a4
  57.     movea.l    0(a4,d1.w),a4
  58.     move.w    #8-1,d1
  59. @@:
  60.     move.l    (a4)+,(a3)+
  61.     dbra    d1,@b
  62.  
  63.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  64.     rts
  65. *---------------------------------------
  66. *    ò\Ī
  67. *
  68. joh_display:
  69.     move.w    C_M_F(a1),d0
  70.     add.w    d0,d0
  71.     move.w    display_tbl(pc,d0.w),d0
  72.     jmp    display_tbl(pc,d0.w)
  73. *---------------------------------------
  74.     .even
  75. display_tbl:
  76.     .dc.w    joh_move-display_tbl,joh_attack-display_tbl
  77.     .dc.w    joh_hit-display_tbl,joh_win-display_tbl,joh_g-display_tbl
  78.     .dc.w    joh_attack-display_tbl,joh_g-display_tbl,joh_attack-display_tbl
  79.     .dc.w    joh_attack-display_tbl,0,0,0,high_s-display_tbl
  80. *---------------------------------------
  81. joh_move:
  82.     move.w    C_CNT(a1),d0
  83.     add.w    d0,d0
  84.  
  85.     tst.w    C_LR_F(a1)
  86.     bne    @f
  87.     move.w    move_tbl_right(pc,d0.w),d0
  88.     jmp    move_tbl_right(pc,d0.w)
  89. @@:
  90.     move.w    move_tbl_left(pc,d0.w),d0
  91.     jmp    move_tbl_left(pc,d0.w)
  92. *---------------------------------------
  93.     .even
  94. move_tbl_left:
  95.     .dc.w    joh_n-move_tbl_left,joh_for-move_tbl_left
  96.     .dc.w    joh_back-move_tbl_left
  97. move_tbl_right:
  98.     .dc.w    joh_n-move_tbl_right,joh_back-move_tbl_right
  99.     .dc.w    joh_for-move_tbl_right
  100. *---------------------------------------
  101. joh_attack:
  102.     move.w    C_AK_F(a1),d0
  103.     add.w    d0,d0
  104.     move.w    d0,d1
  105.     add.w    d0,d0
  106.     add.w    d1,d0
  107.     move.w    C_AM_F(a1),d1
  108.     add.w    d1,d1
  109.     add.w    d1,d0
  110.     move.w    attack_tbl(pc,d0.w),d0
  111.     jmp    attack_tbl(pc,d0.w)
  112. *---------------------------------------
  113.     .even
  114. attack_tbl:
  115.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  116.     .dc.w    mid_s-attack_tbl,mid_a-attack_tbl,mid_t-attack_tbl
  117.     .dc.w    high_s-attack_tbl,high_a-attack_tbl,high_t-attack_tbl
  118.     .dc.w    joh_sa_s-attack_tbl,joh_sa_a-attack_tbl,joh_sa_t-attack_tbl
  119. *---------------------------------------
  120. *    ò╧Ég
  121. *
  122. joh_over_run:
  123.     move.w    #5,C_SA_F(a1)
  124.     move.w    #5,C_SSA_F(a1)
  125.     move.l    #jo2_motion,C_A_DT(a1)
  126.     move.l    #jo2_display,C_PCG_D(a1)
  127.     move.l    #jo2_move_data,C_JOY(a1)
  128.     move.l    #jo2_attack_data,C_HIT_D(a1)
  129.     move.l    #jo2_se_data,C_PCM_D(a1)
  130.     rts
  131. *---------------------------------------
  132. *    ò\Ī
  133. *
  134. jo2_display:
  135.     move.w    C_M_F(a1),d0
  136.     add.w    d0,d0
  137.     move.w    display_tbl2(pc,d0.w),d0
  138.     jmp    display_tbl2(pc,d0.w)
  139. *---------------------------------------
  140.     .even
  141. display_tbl2:
  142.     .dc.w    high_s-display_tbl2,jo2_attack-display_tbl2
  143.     .dc.w    joh_hit-display_tbl2,joh_win-display_tbl2,high_a-display_tbl2
  144.     .dc.w    jo2_attack-display_tbl2
  145. *---------------------------------------
  146. jo2_attack:
  147.     move.w    C_AK_F(a1),d0
  148.     add.w    d0,d0
  149.     move.w    d0,d1
  150.     add.w    d0,d0
  151.     add.w    d1,d0
  152.     move.w    C_AM_F(a1),d1
  153.     add.w    d1,d1
  154.     add.w    d1,d0
  155.     move.w    attack_tbl2(pc,d0.w),d0
  156.     jmp    attack_tbl2(pc,d0.w)
  157. *---------------------------------------
  158.     .even
  159. attack_tbl2:
  160.     .dc.w    mid_s-attack_tbl2,mid_a-attack_tbl2,mid_t-attack_tbl2
  161.     .dc.w    mid_s-attack_tbl2,mid_a-attack_tbl2,mid_t-attack_tbl2
  162.     .dc.w    mid_s-attack_tbl2,mid_a-attack_tbl2,mid_t-attack_tbl2
  163.     .dc.w    joh_sa_s-attack_tbl2,joh_sa_a-attack_tbl2,joh_sa_t-attack_tbl2
  164.     .dc.w    joh_ssa-attack_tbl2,joh_ssa-attack_tbl2,joh_ssa-attack_tbl2
  165. *---------------------------------------
  166. joh_motion:
  167.     .dc.w    4,6,13
  168.     .dc.w    7,3,20
  169.     .dc.w    30,5,25
  170.     .dc.w    5,20,24
  171.     .dc.l    joh_over_run
  172. joh_attack_data:
  173.     .dc.w    8,-24,8,8,16,16,5,0,1,10
  174.     .dc.w    12,-16,4,16,8,32,12,0,1,15
  175.     .dc.w    8,0,8,32,16,40,30,0,2,20
  176.     .dc.w    16,-24,8,8,16,16,35,0,1,24
  177.     .dc.w    0,0,4,4,8,8,100,0,2,50
  178. joh_move_data:
  179.     .dc.w     0, 0
  180.     .dc.w     0,-2
  181.     .dc.w     0, 2
  182.     .dc.w     0, 0
  183.     .dc.w    -2, 0
  184.     .dc.w    -2,-2
  185.     .dc.w    -2, 2
  186.     .dc.w     0, 0
  187.     .dc.w     2, 0
  188.     .dc.w     2,-2
  189.     .dc.w     2, 2
  190. joh_se_data:
  191.     .dc.l    adpcm_data+JOH01        * ÄπìUîéÄnô«é`écéoébél
  192.     .dc.w    $f908
  193.     .dc.w    670
  194.     .dc.w    0
  195.     .dc.l    adpcm_data+JOH01        * ÆåìUîéÄnô«é`écéoébél
  196.     .dc.w    $f908
  197.     .dc.w    670
  198.     .dc.w    0
  199.     .dc.l    adpcm_data+JOH02        * ï¡ìUîéÄnô«é`écéoébél
  200.     .dc.w    $f908
  201.     .dc.w    1864
  202.     .dc.w    0
  203.     .dc.l    adpcm_data+JOH01
  204.     .dc.w    $f908
  205.     .dc.w    670
  206.     .dc.w    1
  207.     .dc.l    adpcm_data+JOH02
  208.     .dc.w    $f908
  209.     .dc.w    1864
  210.     .dc.w    1
  211.  
  212.     .dc.l    0                * ÄπìUîéö╗ÆΦÅoî╗é`écéoébél
  213.     .dc.w    $b904
  214.     .dc.w    942
  215.     .dc.w    0
  216.     .dc.l    adpcm_data+BUO            * ÆåìUîéö╗ÆΦÅoî╗é`écéoébél
  217.     .dc.w    $f908
  218.     .dc.w    942
  219.     .dc.w    0
  220.     .dc.l    adpcm_data+GYOH
  221.     .dc.w    $f900
  222.     .dc.w    706
  223.     .dc.w    1
  224.     .dc.l    adpcm_data+BUO
  225.     .dc.w    $f908
  226.     .dc.w    942
  227.     .dc.w    1
  228.     .dc.l    adpcm_data+JOH04
  229.     .dc.w    $f908
  230.     .dc.w    2384
  231.     .dc.w    1
  232.  
  233.     .dc.l    adpcm_data+DOSHU
  234.     .dc.w    $f904
  235.     .dc.w    1186
  236.     .dc.w    2
  237.     .dc.l    adpcm_data+DOKA            * ÆåìUîéôûé╜éΦé`écéoébél
  238.     .dc.w    $f908
  239.     .dc.w    896
  240.     .dc.w    3
  241.     .dc.l    adpcm_data+DOKA            * ï¡ìUîéôûé╜éΦé`écéoébél
  242.     .dc.w    $f904
  243.     .dc.w    896
  244.     .dc.w    3
  245.     .dc.l    adpcm_data+DOKA            * ôûé╜éΦé`écéoébél
  246.     .dc.w    $f904
  247.     .dc.w    896
  248.     .dc.w    3
  249.     .dc.l    adpcm_data+JOH05
  250.     .dc.w    $f908
  251.     .dc.w    4330
  252.     .dc.w    3
  253.  
  254.     .dc.l    adpcm_data+JOH03        * éjéné`écéoébél
  255.     .dc.w    $f908
  256.     .dc.w    4476
  257.     .dc.w    4
  258.  
  259.     .dc.l    adpcm_data+JOH01        * Åƒé┐é`écéoébél
  260.     .dc.w    670
  261. *---------------------------------------
  262. jo2_motion:
  263.     .dc.w    2,3,7
  264.     .dc.w    2,3,7
  265.     .dc.w    2,3,7
  266.     .dc.w    4,3,15
  267.     .dc.w    0,0,50
  268. jo2_attack_data:
  269.     .dc.w    12,-16,4,16,8,32,8,0,1,7
  270.     .dc.w    12,-16,4,16,8,32,8,0,1,7
  271.     .dc.w    12,-16,4,16,8,32,8,0,1,7
  272.     .dc.w    16,-24,8,8,16,16,40,0,1,15
  273.     .dc.w    0,0,4,4,8,8,100,0,2,50
  274. jo2_move_data:
  275.     .dc.w     0, 0
  276.     .dc.w     0,-4
  277.     .dc.w     0, 4
  278.     .dc.w     0, 0
  279.     .dc.w    -4, 0
  280.     .dc.w    -4,-4
  281.     .dc.w    -4, 4
  282.     .dc.w     0, 0
  283.     .dc.w     4, 0
  284.     .dc.w     4,-4
  285.     .dc.w     4, 4
  286. jo2_se_data:
  287.     .dc.l    adpcm_data+JOH01        * ÄπìUîéÄnô«é`écéoébél
  288.     .dc.w    $f908
  289.     .dc.w    670
  290.     .dc.w    0
  291.     .dc.l    adpcm_data+JOH01        * ÄπìUîéÄnô«é`écéoébél
  292.     .dc.w    $f908
  293.     .dc.w    670
  294.     .dc.w    0
  295.     .dc.l    adpcm_data+JOH01        * ÄπìUîéÄnô«é`écéoébél
  296.     .dc.w    $f908
  297.     .dc.w    670
  298.     .dc.w    0
  299.     .dc.l    adpcm_data+JOH01        * ÆåìUîéÄnô«é`écéoébél
  300.     .dc.w    $f908
  301.     .dc.w    670
  302.     .dc.w    0
  303.     .dc.l    adpcm_data+JOH02
  304.     .dc.w    $f908
  305.     .dc.w    1864
  306.     .dc.w    1
  307.  
  308.     .dc.l    0                * ÄπìUîéö╗ÆΦÅoî╗é`écéoébél
  309.     .dc.w    $b904
  310.     .dc.w    942
  311.     .dc.w    0
  312.     .dc.l    0                * ÆåìUîéö╗ÆΦÅoî╗é`écéoébél
  313.     .dc.w    $f908
  314.     .dc.w    942
  315.     .dc.w    0
  316.     .dc.l    0
  317.     .dc.l    0
  318.     .dc.w    0
  319.     .dc.l    adpcm_data+BUO            * ÆåìUîéö╗ÆΦÅoî╗é`écéoébél
  320.     .dc.w    $f908
  321.     .dc.w    942
  322.     .dc.w    0
  323.     .dc.l    adpcm_data+JOH04
  324.     .dc.w    $f908
  325.     .dc.w    2384
  326.     .dc.w    1
  327.  
  328.     .dc.l    adpcm_data+DOKA            * ôûé╜éΦé`écéoébél
  329.     .dc.w    $f904
  330.     .dc.w    896
  331.     .dc.w    2
  332.     .dc.l    adpcm_data+DOKA            * ôûé╜éΦé`écéoébél
  333.     .dc.w    $f904
  334.     .dc.w    896
  335.     .dc.w    2
  336.     .dc.l    adpcm_data+DOKA            * ôûé╜éΦé`écéoébél
  337.     .dc.w    $f904
  338.     .dc.w    896
  339.     .dc.w    2
  340.     .dc.l    adpcm_data+DOKA            * ôûé╜éΦé`écéoébél
  341.     .dc.w    $f904
  342.     .dc.w    896
  343.     .dc.w    3
  344.     .dc.l    adpcm_data+JOH05
  345.     .dc.w    $f908
  346.     .dc.w    4330
  347.     .dc.w    3
  348.  
  349.     .dc.l    adpcm_data+JOH03        * éjéné`écéoébél
  350.     .dc.w    $f908
  351.     .dc.w    4476
  352.     .dc.w    4
  353.  
  354.     .dc.l    adpcm_data+JOH01        * Åƒé┐é`écéoébél
  355.     .dc.w    670
  356.  
  357. joh_palette:
  358.     .dc.l    pal_data+JOH_C,pal_data+JOH_C+32
  359. *---------------------------------------
  360.     .include    joh_n.inc
  361. *---------------------------------------
  362.     .include    joh_am.inc
  363. *---------------------------------------
  364.     .include    joh_al.inc
  365. *---------------------------------------
  366.     .include    joh_ah.inc
  367. *---------------------------------------
  368.     .include    joh_h.inc
  369. *---------------------------------------
  370.     .include    joh_w.inc
  371. *---------------------------------------
  372.     .include    joh_g.inc
  373. *---------------------------------------
  374.     .include    joh_sa.inc
  375. *---------------------------------------
  376.     .include    joh_ssa.inc
  377. *---------------------------------------
  378.     .end
  379.